Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr37/match_10.zip/MEDIT.WCX

Wildcat! WCX | 1995-03-11 | 9KB | 720 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  9363 bytes  01/29/123  04:30:30pm
'! Code Segment Size  :5943 bytes
'! Data Segment Size  :4717 bytes
'! String Segment Size:3420 bytes
'! Compiled with WCC version 4.01

      Dim s4463 As String
      Dim s4467 As String
      Dim s4471 As String
      Dim s4475 As String
      Dim s4479 As String
      Dim s4483 As String
      Dim s4487 As String
      Dim s4491 As String
      Dim s4495 As String
      Dim s4499 As String
      Dim s4503 As String
      Dim s4507 As String
      Dim s4511 As String
      Dim s4515 As String
      Dim s4519 As String
      Dim s4523 As String
      Dim s4527 As String
      Dim s4531 As String
      Dim s4535 As String
      Dim s4539 As String
      Dim s4543 As String
      Dim s4547 As String
      Dim s4551 As String
      Dim b4555 As Byte
      Dim s4556 As String
      Dim s4560 As String
      Dim s4564 As String
      Dim s4568 As String
      Dim s4572 As String
      Dim s4576 As String
      Dim s4580 As String
      Dim s4584 As String
      Dim s4588 As String
      Dim s4592 As String
      Dim s4596 As String
      Dim s4600 As String
      Dim s4604 As String
      Dim s4608 As String
      Dim s4612 As String
      Dim s4616 As String
      Dim s4620 As String
      Dim s4624 As String
      Dim s4628 As String
      Dim s4632 As String
      Dim s4636 As String
      Dim s4640 As String
      Dim s4644 As String
      Dim s4648 As String
      Dim s4652 As String
      Dim s4656 As String
      Dim s4660 As String
      Dim s4664 As String
      Dim s4668 As String
      Dim s4672 As String
      Dim s4676 As String
      Dim s4680 As String
      Dim s4684 As String
      Dim s4688 As String
      Dim s4692 As String
      Dim s4696 As String
      Dim s4700 As String
      Dim s4704 As String
      Dim s4708 As String
      Dim s4712 As String
      Dim b4716 As Byte

      s4580 = "Agedisp2.bbs"
      s4584 = "HitDisp2.bbs"
      s4588 = "WetDisp2.bbs"
      s4592 = "HarDisp2.bbs"
      s4596 = "EyeDisp2.bbs"
      s4600 = "MarDisp2.bbs"
      s4604 = "usexdis2.bbs"
      s4608 = "TMusic.bbs"
      s4612 = "MBand.bbs"
      s4616 = "Sport.bbs"
      s4620 = "Smoke.bbs"
      s4624 = "TVShow.bbs"
      s4628 = "Movie.bbs"
      s4632 = "Book.bbs"
      s4636 = "Author.bbs"
      s4640 = "Religion.bbs"
      s4644 = "food.bbs"
      s4648 = "Sdrink.bbs"
      s4652 = "kids.bbs"
      Open "Matcher!.cfg" For Input As 1
      Input #1, s4656
      Input #1, s4660
      Input #1, s4664
      Input #1, s4668
      Input #1, s4672
      Input #1, s4676
      Input #1, s4680
      Input #1, s4684
      Input #1, s4688
      Input #1, s4692
      Input #1, s4696
      Input #1, s4700
      Input #1, s4704
      Close 1
      b4555 = User.Sex
      If b4555 = 1 Then
        s4556 = "M"
      Else
  372   If b4555 = 2 Then
          s4556 = "F"
        Else
  402     If b4555 = 3 Then
            Print "You need to go edit [Y]our Info from the main BBS menu, and"
            Print "Enter your Sex.  Right now you have it as 'Not Disclosed',"
            Print "and that won't work with this program. Thanks."
          End If
        End If
      End If
  444 s4564 = s4700
      Open s4564 For Output As 1
      Print #1, User.UserId
      Close 1
      Open s4564 For Input As 2
      Input #2, s4560
      Close 2
      s4568 = s4704
      Open s4568 For Output As 3
      Print #3, s4684; s4556; s4560
      Close 3
      Open s4568 For Input As 4
      Input #4, s4572
      Close 4
      Open s4572 For Input As 5
      Input #5, s4463
      Input #5, s4467
      Input #5, s4471
      Input #5, s4475
      Input #5, s4479
      Input #5, s4483
      Input #5, s4487
      Input #5, s4491
      Input #5, s4495
      Input #5, s4499
      Input #5, s4503
      Input #5, s4507
      Input #5, s4511
      Input #5, s4515
      Input #5, s4519
      Input #5, s4523
      Input #5, s4527
      Input #5, s4531
      Input #5, s4535
      Input #5, s4539
      Input #5, s4543
      Input #5, s4547
      Input #5, s4551
      Close 5
      Do
        Do
          Do
            Do
              Do
                Do
                  Do
                    Do
                      Do
                        Do
                          Do
                            Do
                              Do
                                Do
                                  Do
                                    Do
                                      Do
                                        Do
                                          Do
                                            Do
                                              Do
                                                Do
                                                  Do
                                                    Do
                                                      Do
                                                        Do
                                                          Do
                                                            Do
                                                              Do
                                                                Do
                                                                  Do
                                                                    Do
                                                                      Do
                                                                        Do
                                                                          Do
                                                                            Do
                                                                              Do
                                                                                Do
                                                                                  Do
  790                                                                               Cls
                                                                                    Print " @08@[@0F@1@08@] @09@Real Name: @0B@"; s4467
                                                                                    Print " @08@[@0F@2@08@] @09@Other Handles: @0B@"; s4471
                                                                                    Print " @08@[@0F@3@08@] @09@Age: @0B@"; s4475
                                                                                    Print " @08@[@0F@4@08@] @09@Height: @0B@"; s4479
                                                                                    Print " @08@[@0F@5@08@] @09@Weight: @0B@"; s4483
                                                                                    Print " @08@[@0F@6@08@] @09@Hair Color: @0B@"; s4487
                                                                                    Print " @08@[@0F@7@08@] @09@Eye Color: @0B@"; s4491
                                                                                    Print " @08@[@0F@8@08@] @09@Marital Status: @0B@"; s4495
                                                                                    Print " @08@[@0F@9@08@] @09@Hobbies: @0B@"; s4499
                                                                                    Print "@08@[@0F@10@08@] @09@Sex: @0B@"; s4503
                                                                                    Print "@08@[@0F@11@08@] @09@Favorite Type Of Music: @0B@"; s4507
                                                                                    Print "@08@[@0F@12@08@] @09@Favorite Music Band: @0B@"; s4511
                                                                                    Print "@08@[@0F@13@08@] @09@Favorite Sport: @0B@"; s4515
                                                                                    Print "@08@[@0F@14@08@] @09@Do You Smoke: @0B@"; s4519
                                                                                    Print "@08@[@0F@15@08@] @09@Favorite TV Show: @0B@"; s4523
                                                                                    Print "@08@[@0F@16@08@] @09@Favorite Movie: @0B@"; s4527
                                                                                    Print "@08@[@0F@17@08@] @09@Favorite Book: @0B@"; s4531
                                                                                    Print "@08@[@0F@18@08@] @09@Favorite Author: @0B@"; s4535
                                                                                    Print "@08@[@0F@19@08@] @09@Religion: @0B@"; s4539
                                                                                    Print "@08@[@0F@20@08@] @09@Favorite Food: @0B@"; s4543
                                                                                    Print "@08@[@0F@21@08@] @09@Favorite Drink: @0B@"; s4547
                                                                                    Print "@08@[@0F@22@08@] @09@Do You Have Kids: @0B@"; s4551
                                                                                    Print
                                                                                    s4576 = InputMask("@09@Enter # to Change, @01@(@0F@Q@01@)@09@uit, @01@(@0F@S@01@)@09@ave @01@-@0B@ ", "XX", "", 1213417543)
                                                                                    If (s4576 = "") = 0 Then GoTo 1181
                                                                                  Loop
                                                                                  GoTo 5675
 1181                                                                             If s4576 = "q" Then
                                                                                    GoTo 5675
                                                                                    GoTo 5675
                                                                                  End If
 1210                                                                             If s4576 = "Q" Then
                                                                                    GoTo 5675
                                                                                    GoTo 2749
                                                                                  End If
 1239                                                                             If (s4576 = "1") = 0 Then GoTo 1319
                                                                                  Cls
                                                                                  Color 9, 0
                                                                                  Print "What is your REAL name?"
                                                                                  Color 15, 0
                                                                                  s4467 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                                                                                Loop
                                                                                GoTo 2749
 1319                                                                           If (s4576 = "2") = 0 Then GoTo 1399
                                                                                Cls
                                                                                Color 9, 0
                                                                                Print "What other Alias/Handles do you use? (If applicable)"
                                                                                Color 15, 0
                                                                                s4471 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                                                                              Loop
                                                                              GoTo 2749
 1399                                                                         If (s4576 = "3") = 0 Then GoTo 1834
                                                                              Cls
                                                                              DisplayHelp s4580
                                                                              s4475 = InputMask("", "99", "", 1213417543)
                                                                              If s4475 = "1" Then
                                                                                s4475 = "Under 13"
                                                                                GoTo 1828
                                                                              End If
 1485                                                                         If s4475 = "2" Then
                                                                                s4475 = "13-15"
                                                                                GoTo 1828
                                                                              End If
 1517                                                                         If s4475 = "3" Then
                                                                                s4475 = "16-18"
                                                                                GoTo 1828
                                                                              End If
 1549                                                                         If s4475 = "4" Then
                                                                                s4475 = "19-21"
                                                                                GoTo 1828
                                                                              End If
 1581                                                                         If s4475 = "5" Then
                                                                                s4475 = "22-25"
                                                                                GoTo 1828
                                                                              End If
 1613                                                                         If s4475 = "6" Then
                                                                                s4475 = "26-29"
                                                                                GoTo 1828
                                                                              End If
 1645                                                                         If s4475 = "7" Then
                                                                                s4475 = "30-35"
                                                                                GoTo 1828
                                                                              End If
 1677                                                                         If s4475 = "8" Then
                                                                                s4475 = "36-40"
                                                                                GoTo 1828
                                                                              End If
 1709                                                                         If s4475 = "9" Then
                                                                                s4475 = "41-50"
                                                                                GoTo 1828
                                                                              End If
 1741                                                                         If s4475 = "10" Then
                                                                                s4475 = "51-60"
                                                                                GoTo 1828
                                                                              End If
 1773                                                                         If s4475 = "11" Then
                                                                                s4475 = "Above 60"
                                                                                GoTo 1828
                                                                              End If
 1805                                                                         If (s4475 = "") = 0 Then GoTo 1828
                                                                            Loop
 1828                                                                       GoTo 2749
 1834                                                                       If (s4576 = "4") = 0 Then GoTo 2077
                                                                            Cls
                                                                            DisplayHelp s4584
                                                                            s4479 = InputMask("", "X", "", 1213417543)
                                                                            If s4479 = "1" Then
                                                                              s4479 = "Under 5'0"
                                                                              GoTo 2071
                                                                            End If
 1920                                                                       If s4479 = "2" Then
                                                                              s4479 = "5'1 - 5'5"
                                                                              GoTo 2071
                                                                            End If
 1952                                                                       If s4479 = "3" Then
                                                                              s4479 = "5'6 - 5'9"
                                                                              GoTo 2071
                                                                            End If
 1984                                                                       If s4479 = "4" Then
                                                                              s4479 = "5'10 - 6'0"
                                                                              GoTo 2071
                                                                            End If
 2016                                                                       If s4479 = "5" Then
                                                                              s4479 = "Above 6'0"
                                                                              GoTo 2071
                                                                            End If
 2048                                                                       If (s4479 = "") = 0 Then GoTo 2071
                                                                          Loop
 2071                                                                     GoTo 2749
 2077                                                                     If (s4576 = "5") = 0 Then GoTo 2512
                                                                          Cls
                                                                          DisplayHelp s4588
                                                                          s4483 = InputMask("", "XX", "", 1213417543)
                                                                          If s4483 = "1" Then
                                                                            s4483 = "Under 100"
                                                                            GoTo 2506
                                                                          End If
 2163                                                                     If s4483 = "2" Then
                                                                            s4483 = "101 - 110"
                                                                            GoTo 2506
                                                                          End If
 2195                                                                     If s4483 = "3" Then
                                                                            s4483 = "111 - 120"
                                                                            GoTo 2506
                                                                          End If
 2227                                                                     If s4483 = "4" Then
                                                                            s4483 = "121 - 130"
                                                                            GoTo 2506
                                                                          End If
 2259                                                                     If s4483 = "5" Then
                                                                            s4483 = "131 - 140"
                                                                            GoTo 2506
                                                                          End If
 2291                                                                     If s4483 = "6" Then
                                                                            s4483 = "141 - 150"
                                                                            GoTo 2506
                                                                          End If
 2323                                                                     If s4483 = "7" Then
                                                                            s4483 = "151 - 170"
                                                                            GoTo 2506
                                                                          End If
 2355                                                                     If s4483 = "8" Then
                                                                            s4483 = "171 - 190"
                                                                            GoTo 2506
                                                                          End If
 2387                                                                     If s4483 = "9" Then
                                                                            s4483 = "191 - 210"
                                                                            GoTo 2506
                                                                          End If
 2419                                                                     If s4483 = "10" Then
                                                                            s4483 = "211 - 240"
                                                                            GoTo 2506
                                                                          End If
 2451                                                                     If s4483 = "11" Then
                                                                            s4483 = "Above 240"
                                                                            GoTo 2506
                                                                          End If
 2483                                                                     If (s4483 = "") = 0 Then GoTo 2506
                                                                        Loop
 2506                                                                   GoTo 2749
 2512                                                                   If (s4576 = "6") = 0 Then GoTo 2749
                                                                        Cls
                                                                        DisplayHelp s4592
                                                                        s4487 = InputMask("", "X", "", 1213417543)
                                                                        If s4487 = "1" Then
                                                                          s4487 = "Blonde"
                                                                          GoTo 2749
                                                                        End If
 2598                                                                   If s4487 = "2" Then
                                                                          s4487 = "Red"
                                                                          GoTo 2749
                                                                        End If
 2630                                                                   If s4487 = "3" Then
                                                                          s4487 = "Brown"
                                                                          GoTo 2749
                                                                        End If
 2662                                                                   If s4487 = "4" Then
                                                                          s4487 = "Black"
                                                                          GoTo 2749
                                                                        End If
 2694                                                                   If s4487 = "5" Then
                                                                          s4487 = "Other"
                                                                          GoTo 2749
                                                                        End If
 2726                                                                   If (s4487 = "") = 0 Then GoTo 2749
                                                                      Loop
 2749                                                                 If (s4576 = "7") = 0 Then GoTo 3030
                                                                      Cls
                                                                      DisplayHelp s4596
                                                                      s4491 = InputMask("", "X", "", 1213417543)
                                                                      If s4491 = "1" Then
                                                                        s4491 = "Blue"
                                                                        GoTo 3018
                                                                      End If
 2835                                                                 If s4491 = "2" Then
                                                                        s4491 = "Green"
                                                                        GoTo 3018
                                                                      End If
 2867                                                                 If s4491 = "3" Then
                                                                        s4491 = "Grey"
                                                                        GoTo 3018
                                                                      End If
 2899                                                                 If s4491 = "4" Then
                                                                        s4491 = "Brown"
                                                                        GoTo 3018
                                                                      End If
 2931                                                                 If s4491 = "5" Then
                                                                        s4491 = "Black"
                                                                        GoTo 3018
                                                                      End If
 2963                                                                 If s4491 = "6" Then
                                                                        s4491 = "Other"
                                                                        GoTo 3018
                                                                      End If
 2995                                                                 If (s4491 = "") = 0 Then GoTo 3018
                                                                    Loop
 3018                                                             Loop
                                                                  GoTo 5675
 3030                                                             If (s4576 = "8") = 0 Then GoTo 3343
                                                                  Cls
                                                                  DisplayHelp s4600
                                                                  s4495 = InputMask("", "9", "", 1213417543)
                                                                  If s4495 = "1" Then
                                                                    s4495 = "Single"
                                                                    GoTo 3331
                                                                  End If
 3116                                                             If s4495 = "2" Then
                                                                    s4495 = "Involved"
                                                                    GoTo 3331
                                                                  End If
 3148                                                             If s4495 = "3" Then
                                                                    s4495 = "Engaged"
                                                                    GoTo 3331
                                                                  End If
 3180                                                             If s4495 = "4" Then
                                                                    s4495 = "Married"
                                                                    GoTo 3331
                                                                  End If
 3212                                                             If s4495 = "5" Then
                                                                    s4495 = "Separated"
                                                                    GoTo 3331
                                                                  End If
 3244                                                             If s4495 = "6" Then
                                                                    s4495 = "Divorced"
                                                                    GoTo 3331
                                                                  End If
 3276                                                             If s4495 = "7" Then
                                                                    s4495 = "Widowed"
                                                                    GoTo 3331
                                                                  End If
 3308                                                             If (s4495 = "") = 0 Then GoTo 3331
                                                                Loop
 3331                                                         Loop
                                                              GoTo 5675
 3343                                                         If (s4576 = "9") = 0 Then GoTo 3433
                                                              Cls
                                                              Print
                                                              Color 9, 0
                                                              Print "What are your hobbies?"
                                                              Color 15, 0
                                                              s4499 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                                                              Print
                                                              Color 9, 0
                                                            Loop
                                                            GoTo 5675
 3433                                                       If (s4576 = "10") = 0 Then GoTo 3569
                                                            Cls
                                                            DisplayHelp s4604
                                                            s4503 = InputMask("", "9", "", 1213417543)
                                                            If s4503 = "1" Then
                                                              s4503 = "Male"
                                                              GoTo 3557
                                                            End If
 3519                                                       If s4503 = "2" Then
                                                              s4503 = "Female"
                                                              GoTo 3557
                                                            End If
 3551                                                     Loop
 3557                                                   Loop
                                                        GoTo 5675
 3569                                                   If (s4576 = "11") = 0 Then GoTo 4025
                                                        Cls
                                                        DisplayHelp s4608
                                                        s4507 = InputMask("", "99", "", 1213417543)
                                                        If s4507 = "1" Then
                                                          s4507 = "Easy Listening"
                                                          GoTo 4013
                                                        End If
 3655                                                   If s4507 = "2" Then
                                                          s4507 = "Pop"
                                                          GoTo 4013
                                                        End If
 3687                                                   If s4507 = "3" Then
                                                          s4507 = "Hard Rock"
                                                          GoTo 4013
                                                        End If
 3719                                                   If s4507 = "4" Then
                                                          s4507 = "Heavy Metal"
                                                          GoTo 4013
                                                        End If
 3751                                                   If s4507 = "5" Then
                                                          s4507 = "Alternative"
                                                          GoTo 4013
                                                        End If
 3783                                                   If s4507 = "6" Then
                                                          s4507 = "Industrial"
                                                          GoTo 4013
                                                        End If
 3815                                                   If s4507 = "7" Then
                                                          s4507 = "Grunge"
                                                          GoTo 4013
                                                        End If
 3847                                                   If s4507 = "8" Then
                                                          s4507 = "Rap"
                                                          GoTo 4013
                                                        End If
 3879                                                   If s4507 = "9" Then
                                                          s4507 = "Soul"
                                                          GoTo 4013
                                                        End If
 3911                                                   If s4507 = "10" Then
                                                          s4507 = "Classical"
                                                          GoTo 4013
                                                        End If
 3943                                                   If s4507 = "11" Then
                                                          s4507 = "Opera"
                                                          GoTo 4013
                                                        End If
 3975                                                   If s4507 = "12" Then
                                                          s4507 = "Country"
                                                          GoTo 4013
                                                        End If
 4007                                                 Loop
 4013                                               Loop
                                                    GoTo 5675
 4025                                               If (s4576 = "12") = 0 Then GoTo 4114
                                                    Cls
                                                    DisplayHelp s4612
                                                    s4511 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                                                    If (s4511 = "") = 0 Then GoTo 4102
                                                  Loop
 4102                                           Loop
                                                GoTo 5675
 4114                                           If (s4576 = "13") = 0 Then GoTo 4203
                                                Cls
                                                DisplayHelp s4616
                                                s4515 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                                                If (s4515 = "") = 0 Then GoTo 4191
                                              Loop
 4191                                       Loop
                                            GoTo 5675
 4203                                       If (s4576 = "14") = 0 Then GoTo 4435
                                            Cls
                                            DisplayHelp s4620
                                            s4519 = InputMask("", "9", "", 1213417543)
                                            If s4519 = "1" Then
                                              s4519 = "Yes, Quite Often"
                                              GoTo 4423
                                            End If
 4289                                       If s4519 = "2" Then
                                              s4519 = "Yes, Occasionally"
                                              GoTo 4423
                                            End If
 4321                                       If s4519 = "3" Then
                                              s4519 = "Yes, But Rarely"
                                              GoTo 4423
                                            End If
 4353                                       If s4519 = "4" Then
                                              s4519 = "No, But I don't mind Smokers"
                                              GoTo 4423
                                            End If
 4385                                       If s4519 = "5" Then
                                              s4519 = "No, and I can't stand the Smoke"
                                              GoTo 4423
                                            End If
 4417                                     Loop
 4423                                   Loop
                                        GoTo 5675
 4435                                   If (s4576 = "15") = 0 Then GoTo 4524
                                        Cls
                                        DisplayHelp s4624
                                        s4523 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                                        If (s4523 = "") = 0 Then GoTo 4512
                                      Loop
 4512                               Loop
                                    GoTo 5675
 4524                               If (s4576 = "16") = 0 Then GoTo 4613
                                    Cls
                                    DisplayHelp s4628
                                    s4527 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                                    If (s4527 = "") = 0 Then GoTo 4601
                                  Loop
 4601                           Loop
                                GoTo 5675
 4613                           If (s4576 = "17") = 0 Then GoTo 4702
                                Cls
                                DisplayHelp s4632
                                s4531 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                                If (s4531 = "") = 0 Then GoTo 4690
                              Loop
 4690                       Loop
                            GoTo 5675
 4702                       If (s4576 = "18") = 0 Then GoTo 4791
                            Cls
                            DisplayHelp s4636
                            s4535 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                            If (s4535 = "") = 0 Then GoTo 4779
                          Loop
 4779                   Loop
                        GoTo 5675
 4791                   If (s4576 = "19") = 0 Then GoTo 4880
                        Cls
                        DisplayHelp s4640
                        s4539 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                        If (s4539 = "") = 0 Then GoTo 4868
                      Loop
 4868               Loop
                    GoTo 5675
 4880               If (s4576 = "20") = 0 Then GoTo 4969
                    Cls
                    DisplayHelp s4644
                    s4543 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                    If (s4543 = "") = 0 Then GoTo 4957
                  Loop
 4957           Loop
                GoTo 5675
 4969           If (s4576 = "21") = 0 Then GoTo 5058
                Cls
                DisplayHelp s4648
                s4547 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
                If (s4547 = "") = 0 Then GoTo 5046
              Loop
 5046       Loop
            GoTo 5675
 5058       If (s4576 = "22") = 0 Then GoTo 5147
            Cls
            DisplayHelp s4652
            s4551 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
            If (s4551 = "") = 0 Then GoTo 5135
          Loop
 5135   Loop
        GoTo 5675
 5147   If s4576 = "s" Then
          GoTo 5205
        Else
 5176     If s4576 = "S" Then
            GoTo 5205
          End If
        End If
 5199 Loop
 5205 Print "Your Changes Are Being Saved.  Please Wait"
      If s4503 = "Male" Then
        s4712 = "M"
      Else
 5246   If s4503 = "Female" Then
          s4712 = "F"
        End If
      End If
 5272 b4716 = User.UserId
      Open s4680 For Output As 3
      Print #3, s4684; s4712; b4716
      Close 3
      Open s4680 For Input As 4
      Input #4, s4708
      Close 4
      Open s4688 For Output As 7
      Print #7, s4708
      Close 7
      Open s4688 For Input As 8
      Input #8, s4708
      Close 8
      Open s4708 For Output As 1
      Print #1, User.UserId
      Print #1, s4467
      Print #1, s4471
      Print #1, s4475
      Print #1, s4479
      Print #1, s4483
      Print #1, s4487
      Print #1, s4491
      Print #1, s4495
      Print #1, s4499
      Print #1, s4503
      Print #1, s4507
      Print #1, s4511
      Print #1, s4515
      Print #1, s4519
      Print #1, s4523
      Print #1, s4527
      Print #1, s4531
      Print #1, s4535
      Print #1, s4539
      Print #1, s4543
      Print #1, s4547
      Print #1, s4551
      Close 1
      Print "There Ya Go!  Your Changes Have Been Saved"
      WaitEnter
 5675 Chain s4696, ""